tall_wide <- function(){
  
}